perm filename DIA.F4[MUS,LCS] blob sn#088119 filedate 1974-02-16 generic text, type T, neo UTF8
05600	C*****  THIS ROUTINE DIVIDES OCTAVE INTO ANY NUMBER OF EQUAL PARTS
05700	
05800		SUBROUTINE SUBR
05900	 	COMMON /INS/ INST(27),BG(60)
06000		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF
06100	C   CALL SUBROUTINE FROM P13. P3 CAN BE NOTES OR NUMBS.
06105		X=IFIX(AMOD(P(3),12.))
06200		IF(X.EQ.2.OR.X.EQ.4.OR.X.EQ.7.OR.X.EQ.9.OR.X.
06300		1 EQ.11)P(3)=P(3)+1
06400		END